home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / loadstar list (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  206 lines
  1. 3 poke147,0:sys57812"list.font",8,1:sys62631
  2. 4 poke147,0:sys57812"input any.o",8,1:sys62631
  3. 5 a$=""
  4. 7 gosub 20000:printchr$(14):poke53272,19
  5. 10 goto660
  6. 20 rem ------input routine-------
  7. 30 poke198,0:k$=""
  8. 40 print" [157][146]";:fort=1to10:next
  9. 50 print" [157]";:fort=1to10:next
  10. 60 geta$:ifa$=""then40
  11. 70 l=len(k$)
  12. 80 if(qq)and(l=0)and((a$>="a")and(a$<="z"))thena$=chr$(asc(a$)+128):goto150
  13. 90 ifa$=chr$(13)thena$=k$:print:return
  14. 100 ifa$=chr$(20)andlthenprint" [157][157]";:k$=left$(k$,l-1):goto40
  15. 110 ifnu=0thenif(a$<" "ora$>"_")and(a$<"[193]"ora$>"[218]")then40
  16. 120 ifnu=1thenif(a$<"a"ora$>"z")and(a$<"[193]"ora$>"[218]")then40
  17. 130 ifnu=2thenifa$<"0"ora$>"9"then40
  18. 140 ifl>ln-1then40
  19. 150 printa$;:k$=k$+a$
  20. 160 goto40
  21. 165 rem ------line lock-------
  22. 170 poke770,131:poke771,164
  23. 180 poke88,0:poke89,192
  24. 190 poke90,0:poke91,192
  25. 200 poke781,33:poke782,0
  26. 210 sys41964
  27. 220 poke88,254:poke89,255
  28. 230 poke90,254:poke91,255
  29. 240 poke781,33:poke782,0
  30. 250 sys41964
  31. 260 poke59639,1:poke1,53:return
  32. 270 rem ------list routine-------
  33. 280 print"[200]old down [211][208][193][195][197] to pause  -  [209] to quit"
  34. 290 iftythenopen4,4,7:cmd4
  35. 300 fori=1tox-1:ifty=0thenprint"[152]";
  36. 310 ifx=1andty=0thenprint"     [217]ou must [204][207][193][196] a file first":goto460
  37. 320 ifpeek(203)=60then320
  38. 325 ifpeek(203)=62theni=x-1
  39. 330 ontlgoto340,360,380,400,420
  40. 340 ify=ls%(i)then420
  41. 345 ify<ls%(i)and(x<202)theni=x-1
  42. 350 goto460
  43. 360 ify$=left$(pr$(i),len(y$))then420
  44. 370 goto460
  45. 380 ify$=left$(au$(i),len(y$))then420
  46. 390 goto460
  47. 400 ifp%(i)=ythen420
  48. 410 goto460
  49. 420 print"-----------------------------------"
  50. 430 print"[198]rom [204]oadstar #"ls%(i):ifty=0thenprint"[159]";
  51. 440 printchr$(34)pr$(i)chr$(34)"
  52. 445 [153]" by "au$(i)
  53. 450 [153][163]5)ca$(p%(i))
  54. 460 [130]:[139]ty[167][152]4,[199](13):[160]4
  55. 470 [153]"(NULL)ress any key to return to (NULL)ain (NULL)enu":[151]198,0
  56. 480 [161]a$:[139]a$[178]""[167]480
  57. 490 [142]
  58. 500 [143] ------category list-------
  59. 510 [153]""
  60. 520 [129]i[178]0[164]5
  61. 530 [153][163]8)"sys"i[170]1"print - "ca$(i)
  62. 540 [130]:[139]ex[167] [153][163]8)"sys"0"print - val(NULL)right$(NULL)(NULL)"
  63. 550 [161]a$:[139]a$[178]"0" [175] ex [167] [142]
  64. 551 [139]a$[179]"1"[176]a$[177]"6"[167]550
  65. 560 [142]
  66. 570 [143] ------error message-------
  67. 580 [139]st[178]0[167]640
  68. 590 [132]15,a$,b$
  69. 600 [153][163]15)"(NULL)ress a keyononon"
  70. 610 ta[178]20[171][181]([195](b$)[173]2)
  71. 620 [153][163]ta)"sys"b$:[129]t[178]1[164]15:[130]:[153][163]ta)"onclr"b$"on":[129]t[178]1[164]15:[130]
  72. 630 [161]a$:[139]a$[178]""[167]620
  73. 640 [160]15:[142]
  74. 650 [143] -------initialization-------
  75. 660 [151]53281,0:[151]53280,0:[153]"load"[199](14)[199](8)
  76. 670 [134]pr$(250),p%(250),au$(250),ls%(250),ca$(6)
  77. 680 [129]i[178]0[164]5:[135]ca$(i):[130]
  78. 690 x[178]1:ls%(0)[178]30:qq[178]0:[141]170
  79. 700 [153]"load"
  80. 710 [143] -------main menu-------
  81. 720 [153][163]7)"def(NULL) (NULL) atn str$ (NULL) (NULL) atn (NULL)    (NULL) right$ (NULL) (NULL)":qq[178]0
  82. 730 [153][163]8)"open(c) 1987 by ascender (NULL)ucker"
  83. 740 [153][163]10)"sys1list  -  valnter (NULL)rograms"
  84. 750 [153][163]10)"sys2list  -  (NULL)ist (NULL)rograms"
  85. 760 [153][163]10)"sys3list  -  (NULL)oad a (NULL)ist
  86. 770 printtab(10)"[158]4[155]  -  [211]ave a [204]ist
  87. 780 [153][163]10)"sys5list  -  (NULL)uit
  88. 790 geta$:ifa$<"1"ora$>"5"then790
  89. 795 qq=0:ex=0
  90. 800 onval(a$)goto880,1070,1410,1570,810
  91. 810 print"[153] [193]re you sure you want to quit? ([158][217][153][146]/[158][206][153][146])"
  92. 820 aa=peek(203):ifaa<>25andaa<>39then820
  93. 830 ifaa=39then700
  94. 835 poke1,119
  95. 840 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  96. 850 ifer<>63thensys64738
  97. 860 print"[147]":poke53272,21:poke8*256,0:poke44,8:poke43,1
  98. 865 load"hello connect",8
  99. 870 rem -------enter routine-------
  100. 880 print"[147]"tab(8)"[158][208]rogram [206]umber[153]"x
  101. 890 printtab(8)"[158][204]oadstar # [155]";:nu=2:ln=2:gosub30
  102. 900 ls%(x)=val(left$(a$,2))
  103. 910 ifls%(x)=0then700
  104. 920 printspc(9)"------------------------------[145][145][145]"
  105. 930 print"[158][212]itle -  [155]";:nu=0:ln=30:qq=1:gosub30
  106. 940 pr$(x)=a$
  107. 950 printspc(9)"------------------------[145][145][145]"
  108. 960 print"[158][193]uthor - [155]";:nu=0:ln=24:qq=1:gosub30
  109. 970 au$(x)=a$
  110. 980 gosub510:p%(x)=val(a$)-1
  111. 990 print"[159]":printchr$(34)pr$(x)chr$(34)
  112. 995 print"    by "au$(x)
  113. 1000 print:printca$(p%(x))" - [204]oadstar #"ls%(x)
  114. 1010 printtab(8)"[153][201]s this correct? ([158][217][153][146]/[158][206][153][146])"
  115. 1020 geta$:ifa$<>"y"anda$<>"n"then1020
  116. 1030 ifa$="n"then880
  117. 1040 x=x+1
  118. 1050 goto880
  119. 1060 rem -------list menu-------
  120. 1070 print"[147][150]":qq=0
  121. 1080 printtab(7)"[212][200][197] [204][207][193][196][211][212][193][210] [204][201][211][212] [205][197][206][213]"
  122. 1090 printtab(10)"[158][193][155] - [194]y [204]oadstar [201]ssue #"
  123. 1100 print"  [204]"
  124. 1110 printtab(10)"[158][194][155] - [194]y [208]rogram [212]itle"
  125. 1120 print"   [201]"
  126. 1130 printtab(10)"[158][195][155] - [194]y [193]uthor"
  127. 1140 print"    [211]"
  128. 1150 printtab(10)"[158][196][155] - [194]y [195]ategory"
  129. 1160 print"     [212]"
  130. 1170 printtab(10)"[158][197][155] - [193]ll"
  131. 1180 printtab(10)"[158][198][155] - [194]ack to [205]ain [205]enu"
  132. 1190 geta$:ifa$<"a"ora$>"f"then1190
  133. 1200 tl=asc(a$)-64:y=-1:y$=""
  134. 1210 print"[153]":ontlgosub1230,1260,1290,1320,1340,700
  135. 1220 goto1340
  136. 1230 printtab(7)"[204]oadstar [201]ssue # [155]";
  137. 1240 nu=2:ln=2:gosub30:y=val(a$)
  138. 1250 return
  139. 1260 printtab(7)"[208]rogram [212]itle - [155]";
  140. 1270 nu=0:ln=20:qq=1:gosub30:y$=a$
  141. 1280 return
  142. 1290 printtab(7)"[193]uthor's [206]ame - [155]";
  143. 1300 nu=0:ln=20:qq=1:gosub30:y$=a$
  144. 1310 return
  145. 1320 ex=1:gosub520:y=val(a$)-1:ifa$="0"then1070
  146. 1330 return
  147. 1340 print"[153]    [204]ist to ([158][211][146][153])creen or ([158][208][146][153])rinter"
  148. 1350 geta$:ifa$<>"s"anda$<>"p"then1350
  149. 1360 ty=0:ifa$="p"thenty=1
  150. 1370 ifty=0thenprint"[147]"
  151. 1380 gosub280
  152. 1390 goto700
  153. 1400 rem -------load routine-------
  154. 1410 f$="":print"[158]"tab(5)"[198]ilename to [204][207][193][196] - [155]list";:k$="list":l=4
  155. 1420 nu=0:ln=16:gosub40:f$=a$
  156. 1430 iff$=""then700
  157. 1440 open15,8,15,"i0"
  158. 1450 open2,8,2,"0:"+f$+",p,r"
  159. 1460 sys828,2,255:x=val(a$)
  160. 1470 fori=1tox
  161. 1480 sys828,2,255:pr$(i)=a$
  162. 1490 sys828,2,255:au$(i)=a$
  163. 1510 sys828,2,255:p%(i)=val(a$)
  164. 1520 sys828,2,255:ls%(i)=val(a$)
  165. 1530 next:close2
  166. 1540 gosub580
  167. 1550 goto700
  168. 1560 rem -------save routine-------
  169. 1570 f$="":print"[158]"tab(5)"[198]ilename to [211][193][214][197] - [155]";
  170. 1580 nu=0:ln=16:gosub30:f$=a$
  171. 1590 iff$=""then700
  172. 1600 open15,8,15,"i0"
  173. 1610 open2,8,2,"0:"+f$+",p,w"
  174. 1620 print#2,x
  175. 1630 fori=1tox
  176. 1640 print#2,pr$(i)
  177. 1650 print#2,au$(i)
  178. 1660 print#2,p%(i)
  179. 1670 print#2,ls%(i)
  180. 1680 next:close2
  181. 1690 gosub580
  182. 1700 goto700
  183. 1710 data"[198]un 'n [199]ames","[212]he [200]appy [200]acker","[208]icture [212]his"
  184. 1720 data"[200]elpware","[194]rainware","[205]usical [205]adness"
  185. 20000 poke53280, 6:poke53281, 1:poke53265,peek(53265)and239:printchr$(142)"[147][142]";
  186. 20001 print"[152]                                                   loadstar presents  ";
  187. 20002 print"                                                      [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  188. 20003 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[152][160]       [146]OO[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]PP[152]       [146][180]";
  189. 20004 print"[165][170][170][151] [152]      [146][180][165]                       ";
  190. 20005 print"    [146][170][170][151][160][152]      [146][180][165][155][160]                           [155] [146][170][170][151][160][152]      [146]";
  191. 20006 print"[180][165][155][160]       loadstar list       [155] [146][170][170][151][160][152]      [146][180][165]       [163][163][163][163][163][163][163][163][163]";
  192. 20007 print"[163][163][163][163]       [155] [146][170][170][151][160][152]      [146][180][165]                           [155] [146][170][170][151][160][152] ";
  193. 20008 print"     [146][180][165]     written by  [160]         [155] [146][170][170][151][160][152]      [146][180][180][155][160]         ";
  194.